home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1996 December / Designer's Club 1996 December.iso / pc / ideasrc / emboss.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.5 KB  |  65 lines

  1. on startMovie
  2.   global slider, toolH, toolV, gallery
  3.   set slider to 0
  4.   set the locH of sprite 40 to toolH
  5.   set the locV of sprite 40 to toolV
  6.   set gallery to "slideshow"
  7. end
  8.  
  9. on stopMovie
  10.   global toolH, toolV
  11.   set toolH to the locH of sprite 40
  12.   set toolV to the locV of sprite 40
  13. end
  14.  
  15. on pressit button, swap
  16.   puppetSound("clickdn")
  17.   repeat while the mouseDown
  18.     set the visible of sprite button to 0
  19.     updateStage()
  20.   end repeat
  21.   set the visible of sprite button to 1
  22.   puppetSound("clickup")
  23. end
  24.  
  25. on tools
  26.   global slider
  27.   repeat with n = 41 to 46
  28.     puppetSprite(n, 1)
  29.   end repeat
  30.   repeat with n = 41 to 46
  31.     set the locV of sprite n to the locV of sprite 40 + 42
  32.   end repeat
  33.   set the locH of sprite 41 to the locH of sprite 40
  34.   set the locH of sprite 42 to the locH of sprite 40 - 116
  35.   set the locH of sprite 43 to the locH of sprite 40 - 69
  36.   set the locH of sprite 44 to the locH of sprite 40 - 22
  37.   set the locH of sprite 45 to the locH of sprite 40 + 34
  38.   set the locH of sprite 46 to the locH of sprite 40 + 104
  39.   updateStage()
  40. end
  41.  
  42. on keyDown
  43.   if the key = 1 then
  44.     set the soundLevel to 1
  45.   end if
  46.   if the key = 2 then
  47.     set the soundLevel to 2
  48.   end if
  49.   if the key = 3 then
  50.     set the soundLevel to 3
  51.   end if
  52.   if the key = 4 then
  53.     set the soundLevel to 4
  54.   end if
  55.   if the key = 5 then
  56.     set the soundLevel to 5
  57.   end if
  58.   if the key = 6 then
  59.     set the soundLevel to 6
  60.   end if
  61.   if the key = 7 then
  62.     set the soundLevel to 7
  63.   end if
  64. end
  65.